Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/hf.dir/00081_Result List.ls

Text File | 1996-04-19 | 667 b | 25 lines

global gHFResultLastLine

on mouseDown
  if the doubleClick and (the mouseLine <> -1) then
    searchGoto(the mouseLine)
    exit
  end if
  set gHFResultLastLine to -1
  set mLine to the mouseLine
  if mLine = -1 then
    exit
  else
    set executeOnce to 0
    repeat while the stillDown or (executeOnce = 0)
      set mLine to the mouseLine
      if (mLine <> gHFResultLastLine) and (mLine <> -1) then
        set the foreColor of line gHFResultLastLine of field "Result List" to 255
        set the foreColor of line mLine of field "Result List" to 251
        set gHFResultLastLine to mLine
        set executeOnce to 1
      end if
    end repeat
  end if
end